Mapa

Row

Lugares para ir con mis amigos

Row

Descripción del mapa

Estos son algunos lugares que me gustaría visitar en algún momento con mis mejores amigos

Puedes escribir en cursivas

O negritas

También puedes poner imágenes:



O hipervínculos, por ejemplo a Google

Row

Referencias

  1. Referencia uno

  2. Referencia dos

  3. Referencia tres

---
title: "Lugares que me gustaría visitar"
author: "Luis Fernando Amaro Alanis"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Lugares para ir con mis amigos

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Tulum", Giro = "Lugar pa'lokiar", longitud =  -87.46, latitud = 20.21)
lugar2 <- c(Nombre = "Puerto Vallarta", Giro = "Lugar pa'lokiar", longitud = -105.267, latitud = 20.667)
lugar3 <- c(Nombre = "Monterrey", Giro = "Lugar para acalorarse", longitud = -100.30, latitud = 25.67 )
lugar4 <- c(Nombre = "Sayulita", Giro = "Lugar pa'turistear", longitud = -105.43, latitud = 20.86)
lugar5 <- c(Nombre = "Guadalajara", Giro = "Lugar pa'pasarla chido", longitud = -103.34, latitud = 20.67)
lugar6 <- c(Nombre = "Guanajuato", Giro = "Lugar pa'conocer más sobre tu país", longitud=- 101.25, latitud = 21.01)


### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) ### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) ### Imprimimos el mapa mapa ``` Row ----------------------------------------------------------------------- ### Descripción del mapa Estos son algunos lugares que me gustaría visitar en algún momento con mis mejores amigos *Puedes escribir en cursivas* **O negritas** También puedes poner imágenes:
![](imagen-ejemplo.png){heigth="150"}

[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/) Row ----------------------------------------------------------------------- ### Referencias 1. Referencia uno 2. Referencia dos 3. Referencia tres